home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pibt40s1.arc / CHECKWAI.MOD < prev    next >
Text File  |  1987-03-01  |  2KB  |  32 lines
  1. (*----------------------------------------------------------------------*)
  2. (*     Check_Wait_String_Time --- Check if wait string time exhausted   *)
  3. (*----------------------------------------------------------------------*)
  4.  
  5. PROCEDURE Check_Wait_String_Time;
  6.  
  7. (*----------------------------------------------------------------------*)
  8. (*                                                                      *)
  9. (*     Procedure:  Check_Wait_String_Time                               *)
  10. (*                                                                      *)
  11. (*     Purpose:    Checks if wait string time is exhausted              *)
  12. (*                                                                      *)
  13. (*     Calling Sequence:                                                *)
  14. (*                                                                      *)
  15. (*        Check_Wait_String_Time;                                       *)
  16. (*                                                                      *)
  17. (*----------------------------------------------------------------------*)
  18.  
  19. BEGIN (* Check_Wait_String_Time *)
  20.  
  21.    IF ( TimeDiff( Script_Wait_Start , TimeOfDay ) > Script_Wait_Time ) THEN
  22.       BEGIN
  23.          Script_Wait_Save[0] := #0;
  24.          Script_Wait_Found   := FALSE;
  25.          WaitString_Mode     := FALSE;
  26.          Really_Wait_String  := FALSE;
  27.          IF ( Script_Wait_Failure > 0 ) THEN
  28.             Script_Buffer_Pos  := PRED( Script_Wait_Failure );
  29.       END;
  30.  
  31. END   (* Check_Wait_String_Time *);
  32.